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December 13, 1961 



Memorandum to: Users of 1401 Tape-to-Printer Utility Program 



Subject; 



1401 Tape-to-Printer Utility Program, 
Program #1401-UT-026, Version 3, 
Modification Level O 



This letter transmits the 1401 Tape-to-Printer Utility Program and 
associated material. 

Abstract for 1401 Tape-to-Printer 

Purpose; 

The 1401 Tape-to-Printer Utility Program provides the means whereby 
tapes of many configurations may be printed in many configurations under 
the control of a series of parameters punched into control cards. 
Specifically, simulation of 717 and 720 printers is provided. However, 
the program additionally allows sequence checking, exception procedures, 
heading lines, page numbering, field selection, file selection and other 
features. 

Use of Program: 

The parameters which specify a particular configuration of tape and 
printed output are punched into a series of control cards. These cards 
are inserted into the program deck which is then loaded and the tape is 
printed. 

Machine Configuration 



The minimum 1401 machine configuration which is needed by this program 
is as follows: 
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1 . 4000 positions of core storage 

2. High -Low -Equal Compare 

3. IBM 1403 Printer, Model 2 

4. One IBM 729 II, IV, V, VI or 7330 Tape Unit 

5. IBM 1402 Card Read-Punch (a system tape may be 
produced, which allows runs without this item) 

In accordance with the program request you submitted, the Basic Program 
Material being forwarded is: 

1. The program deck which is sequentially numbered in 
columns 78-80 and which contains a "3" in column 77. 

2. The documentation of 1401 Tape-to-Printer including flow 
charts, a symbolic listing of the program and a listing 

of the program deck. 

The Optional Program Material, being forwarded only if requested, is the 
symbolic source deck of the 1401 Tape-to-Printer Program. 

The following information will be helpful in implementing this system: 

1 . IBM 1401 DATA PROCESSING SYSTEM 
BULLETIN - UTILITY PROGRAMS FOR 
IBM 1401 TAPE SYSTEMS - Form Number 
J29-1411 (available from IBM Stationery 
Stores, Endicott, N.Y.). 

The 1401 Tape-to-Printer Utility Program will be maintained through the 
use of modification letters. Whenever modifications are made to the program, 
a serially numbered letter, starting with number 1, accomipanied by the 
appropriate change cards will be mailed to all users. When the program 
is requested and the modification level is other than 0, all letters will be 
supplied with the material, but no change cards will be forwarded since 
the program deck will always reflect the latest changes. Should the nature 
or quantity of changes make a reassembly necessary, this will be distributed 
as a new version and modification letters to this new version will begin at 1. 
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An Applied Programming Analysis Report (APAR) should be submitted 
through the IBM Systems Engineer to report any difficulties encountered 
in the use of this system. The APAR should be addressed to: 

APAR Processing 
IBM Applied Programming 
Department 302, Building 647 
Endicott, New York 

Any discrepancy between the material you receive and the items listed 
above should be directed to the Manager of the DP Program Information 
Department, IBM, 1 12 East Post Road, White Plains, New York. 



Program Information Department 



cc: Branch Office 

No attachments sent with carbon 
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1401 Tape -to -Printer Utility Program 



I. Introduction 



The 1401 Tape-to-Prkiter Utility program will permit the printing of many varied 
tape configurations in many varied print configurations without the need of specific 
programs. The format of the input records and the desired output are specified by 
the user in a series of control cards which are inserted in the program deck prior 
to running on the 1401. The minimum 1401 configuration needed to operate this 
program includes: 

1. 1401 Model C3* 

2. High -Low -Equal Compare 

3. 1403 Model 2 Printer 

4. 1 (one) Tape Unit (Model 729 H, 729 IV, 729 V, 729 VI or 7330) 

5. 1402 Model 1* Card Read Punch. 



n. Specifications 

The following list contains specifications of the Tape -to -Printer Utility Program. 

1. Tapes may contain either fixed length records with fixed blocking or 
variable length records with variable blocking. Variable length records in a block 
must each be followed by a record mark. The last record may or may not have 

a record mark. In addition, fixed or variable length records may be unblocked. 

2. The maximum block length allowed is 1496 characters without Editing: 
1279 with Editing. 

3. Spacing or skipping between records can be controlled either by the control 
card or by the first character of the record. 

4. Spacing or skipping between blocks can be specified in the control card. 

5. Pages may be numbered or not, as desired. 

6. Up to three lines of heading information may be printed at the beginning of 
the listing. 

7. One or two lines of additional heading information may be printed at the 
top of each page of the listing. 

*If system tape has been produced on 1401 Model C3, program may be run on 1401 
Model D3 without 1402 Model 1. 
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8. Up to 99 separate, adjacent files may be printed on one pass of the program 
or any three files may be selected from a tape. In addition, a file may be bypassed 
during the running of the program under sense switch control (SSC). 

9. A continuous field up to 30 characters in length may be specified for sequence 
checking of the records within a file. 

10. Up to two characters of a record may be used to detect exceptions which may 
be punched into cards, punched and printed, or bypassed entirely. 

11. Fixed length records may be printed in either of two modes: 

a) Tape Image - the records would be printed exactly as they appear on tape 
except that they may be printed on more than one line (i. e. , a record 200 characters 
in length, where the characters per line is specified on the control card as 100, would 
print on two lines). 

b) Field Selection - up to 1.6 portions of the record maybe printed on up to 
nine lines in any order. Each field may be 132 characters or less in length and may 
be printed exactly as it appears in the record, or may be zero suppressed (i. e. , high 
order zeroes replaced by blanks), or may be edited before printing (the edit control 
words are supplied by the user as part of the Parameter Set of cards). 

12. Variable length records are printed in tape image as explained for fixed 
length records. However, one additional option is allowed the user. The user may 
specify that if any record exceeds the number of characters to be printed per line, 
only the first line will be printed and the remainder of that record bypassed. 

13. At the end of a file, the number of records which have been processed will 
be printed. 

14. If a tape contains a header label, the user may choose to print, punch or 
check the header label. 

15. The following options are allowed the user in specifying a method to halt 
the program when the job is completed: 

a) Specifying the number of files to be printed. 

b) Selecting files for printing. 

c) Assuming (a) is not known and (b) is not used, specifying the presence 
of a trailer label and letting the program check for it. 

d) Same as (c) except no trailer label but two consecutive End-of-File 
marks on the tape. 

e) Under sense switch control or control card control, halt at the end of 
each file. 

16. A system tape containing the program modified by the user set of control 
cards may be prepared on the Model C3 machine for use on the Model D3 machine or 
for repetitive use of the same parameters. 
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ni. Format of Control Cards 

Card No. Columns Meaning 

1 1-4 (4) Eecord length - including any forms control character and 

special character (record mark) if present. For variable 
length records punch "WW". Variable length records 
must be terminated by a record mark except for the last 
record of the block which need not have a record mark, 
but may have one. 

1 5-7 (3) Blocking - number of records per block; leave blank for 

variable length records since variable blocking is 
permissible for variable length records. 

1 8-10(3) Characters per line - maximum 132 characters. Used to 

specify the maximum number of characters to be printed 
on each line. Must be punched for all record types. 

1 11-12 (2) Number of files - actual number if printing all files on reel 

or selecting files. If printing starting with first file and 
continuing printing each file for a number less than the 
actual total juse the number to be printed, li unknown, 
leave blank. A file is defined as data on tape between 
tape marks. Therefore, a trailer label at the end of a 
file (or header label at the beginning of a file), if 
preceded and followed by a tape mark, is considered 
to constitute a file. 

1 13 (1) Program Operation - it is possible to prepare a system tape 

containing the program modified by the set of control cards, 
heading cards, etc. when the same tape and print configu- 
rations will be repetively used on the Model C machine, or 
. when it is desired to use the Model D for the actual 
printing operation. To prepare this system tape, the 
program together with the control cards, heading cards, 
and the Header Label cards should be loaded in the card 
reader as usual. A blank tape should be set on Tape Unit 
#1. The control card should contain a "D" in column 13. 
After producing the system tape, the program will halt. 
If the user has a tape he wishes to print at the same time, 
the Object Tape should be readied on #3, the printer 
readied and the "Start" Button depressed. 

1 14 (1) Halt Option code - an option is allowed to halt after printing 

each file. Punch 1 to halt, leave blank if halt is not desired. 
Sense switch B will accomplish the same result. 

1 15-16 (2) First file to be printed - file number (starting from first 

file as file 1) when file selecting. 

1 17-18 (2) Second file to be printed - when file selecting. 

1 19-20 (2) Third file to be printed - when file selecting. 

1 ' 21 (1) Page Number option - pages are automatically numbered 

unless the option is used. Punch a 1 to prevent page 
numbering. Otherwise, leave blank. 
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Card No . Columns Meaning 

1 22 (1) First Character Space/Skip Control - if the first character 

of each record is to be used to control spacing and skipping 
between records, punch a 1. If no, leave blank. 
(See Appendix A for list of legal characters). 

1 23 (1) Suppress Option Code - if column 22 contains a 1, an option 

is allowed when the first character contains an "&" which 
means space suppress to other printers. Pimch a 1 to 
prevent printing of the record; punch 2 to cause a set of 
asterisks to be printed before the record is printed. 

1 24(1) Record Form Control Character -if column 22 is blank, 

column 24 must be punched with the proper character to 
indicate what spacing is desired between records. If left 
blank, single spacing will be used. 
(See Appendix B for list of legal characters). 

1 25 (1) Block Form Control Characters - column 25 must be 

punched with the proper character to indicate additional 
spacing between blocks. If left blank, no additional space 
will be taken. 
(See Appendix C for list of legal characters). 

1 26 (1) Exception Option code - if there are to be records that will 

not follow the normal printing procedure, this column must 
be punched. Punch 1 to cause exception records to be by- 
passed, punch 2 to cause exception records to be punched 
into cards & punch 3 to cause both punching and normal 
printing. Leave blank if no exceptions. 

1 27 (1) Exception Type code - up to 2 columns of a record may be 

designated to mark exceptions. If an "and" condition 
between the columns is desired, punch a 1. If an "or" 
condition is desired, punch a 2. If column 26 is punched, 
column 27 must be punched unless only one column is to be 
checked. 

1 28 (1) First character configuration - the actual configuration to 

be checked for must be punched here (character, zone or 
digit). 

1 29 (1) First character disposition - column 28 can be a character, 

zone or digit. For presence of a character, punch 1; 
absence of character, punch 2. For presence of a zone, 
punch A; for absence, punch B. For presence of a digit, 
punch J; for absence, punch K. 

1 30-33 (4) First character location - the location within the tape record 

(assuming the start as location 0001) of the first exception 
character. 



Card No. 


Columns 


1 


34(1) 


1 


35(1) 


1 


36-39 (4) 


1 


40-43 (4) 


1 


44-45 (2) 


1 


46(1) 
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Meaning 

SecQRd-character configuration - explanation same as 

column 28. 

Second character disposition - explanation same as 

column 29. 

Second character location - explanation same as columns 

30-33. 

Sequence check field location - up to 30 contiguous columns 

of a record may be sequence checked. These columns are 

used to specify the high order position of the field to be 

checked (assuming the start of the record as 0001). 

Sequence check number of characters - the number of 

characters in the field to be sequence checked. 

Number of lines of fixed heading - up to 3 lines of heading 

may be printed on the first page of the listing. If this 

column is left blank, there is no fixed heading. There must 

be 2 cards per heading line, with the first 80 columns in the 

first card; the next 52 columns in columns 1-52 of the 

second card. If spacing is desired between heading lines, 

one of the characters shown in Appendix B should be punched 

in column 80 of the second card. 

47(1) Fixed Heading print option - normally, the fixed heading is 

printed on the first page of the report. If it is desired to 
print the fixed heading on a separate page, punch a 1 in 
this column. Otherwise, leave blank. 

48 (1) Number of lines of variable heading -up to 2 lines of heading 

may be printed on the top of each page of the listing. If this 
column is left blank, there is no variable heading (see columr 
46 for description of cards). 

49-51 (3) Number of characters in header label -if there is a header 
label as the first record on the tape, these columns must be 
punched. The maximum number of characters that may be , 
processed is 160. If the label is greater than 160, punch 160. 

52 (1) Disposition of header label -punch a 1 to print the label; a 

2 to punch the label; a 3 to bypass the label; and a 4 to 
compare the label to cards which are contained in the deck. 
Up to 80 columns, use one card; over 80 (maximum 160) 
use two cards. 

53 (1) Variable length record single line option - an option is 

allowed to print only one line per Fecord even if the record 
lengths of a variable length tape sometimes or always 
exceed a line length. To exercise this option, punch a "1" 
in this column. Otherwise, leave blank. 



1 


60-62 (3) 


1 


63-65 (3) 


1 


66(1) 
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Card No. Columns Meaning 

1 54-55 (2) Number of fields to be selected - for a tape containing 

fixed length records, it is possible to select portions of 
the record for printing. Up to 16 fields may be selected. 
Printing can be on up to 9 lines for a record; both tape and 
print positions are noted; zeroes may be inserted; fields 
may be zero suppressed when printed. Fields may be edited 
before printing. The order of the fields in the control cards 
must be line number order. 

1 56-69 (4) Field 1 - high order record location - the high order position 

of the field to be selected (assuming the start of the record 
as 0001) is punched here. If this field is to be inserted 
zeroes instead of a tape record field, punch "ZZZZ". 
Field 1 - number of characters - the number of characters 
in the field to be selected or the nunt er of zeroes to be 
printed. 

Field 1 - high order print location - the high order position 
on the printed line of the field which has been selected, or 
zeroes, (assuming the start of the line as 001). 
Field 1 - line number to be printed on - starting with line 1 
for field 1, each field must specify what line it is to be 
printed on. In addition, if the field is to be zero suppressed 
when printed, overpunch column 66 with a "12" punch. If 
the field is to be edited, overpunch column 66 with an "x" 
pianch. It should be noted that care must be exercised in 
selecting fields to make sure that the maximum line length 
allowed is not exceeded for any one line. 
Field 2 - high order record location - see columns 56-69 for 
explanation. 

Field 2 - number of characters - see columns 60-62 for 
explanation. 

Field 2 - high order print location - see columns 63-65 
for explanation. 

Field 2 - line number to be printed on - see column 66 for 
explanation. 

Field SeledtJon i£dit^ - if any of the selected fields is to be 
edited, punch a 1 in column 78. In addition, a card must be 
included in the Parameter Set containing the Edit word for 
each field using this feature. These Edit word cards must 
be in the same order as the fields are in the control cards. 

79 (1) Trailer label comparison - if the tape contains a trailer 
label which can be used to indicate the end of the printing 
operation, punch a 1 in this column and include a card in 
the Parameter Set containing an image of the trailer label. 
If the trailer is greater than 80 columns in length, only the 
first 80 may be compared. 

80 (1) Additional Form Spacing -normally, after printing the page 
number and variable heading at the top of a page, an additional 

triple space is taken before the first body line is printed. If 
this additional triple space is not desired, punch a 1 in col. 80. 



1 


67-70 (4) 


1 


71-73 (3) 


1 


74-76 (3) 


1 


77(1) 


1 


78(1) 
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Card No. 
2,3 



2,3 



Columns 



2. 3 




23-26 
27-29 
30-32 
33 



Fields, 10 



Field 4,11 



Field 5, 12 



Meaning 



2,3 



34-37 
38-40 
41-43 
44 



Field 6. 13 



2, 3 



45-48 
49-51 
52-54 
55 



Field 7, 14 



2,3 



2,3 



2,3 



56-59 
60-62 
63-65 
66 

67-70"\ 
71-73 S 
74-76 I 
77 J 

78-80 



Field 8, 15 



Field 9, 16 



Blank (not used) 



Notes: 

1. All parameter cards except for one control card are optional (depending on procedure) 

2. For fixed length records without field selection where the record length is less than 
the specified number of characters/line, the following are not applicable: 

a) First Character Space /Skjp Control 

b) Record Form Control (single spaced between lines within blocks) 

c) Exceptions 

d) Sequence checking. 

3. Page number will be printed at the top of every page and will be reset for each file 
unless column 21 is punched. 

4. After each file, the count of number of records processed will be printed. 

5. For fixed length records where the record length exceeds the specified number of 
characters/line, the record form control will be exercised only between records. 



single spacing will be used between lines within the record. 



7 
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6. Tape to be printed must be on Tape #3. 

7. To use a system tape (prepared as described in column 13), ready the system tape 
on Tape #1, ready the tape to be printed and the printer and depress "Tape Load" 
Button. 

8. A carriage control tape must be prepared as part of the job set-up. 

9. If simulating the 720 printer, columns 21 and 80 should both be punched with a "1". 
This will prevent page numbering and the additional triple space at the top of a page. 
In addition, if using the first position of the record for carriage control in the Fixed 
Length Tape Image mode, compute the line length (cols. 8-10) by including the first 
position as a print position. (The first position is blanked and printed in print position 
one). For example, if the record length is 121 including the carriage control char- 
acter, specify 1^1 for line length, not 120. The last 120 positions will print in 
positions 2-121. If it is desired to print in positions 1-120 instead, Field Selection 
should be used. 

10. In all cases, except Field Selection, when the last character of a record is a record 
mark, it is blanked out before printing. 
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IV. Operating Instructions 

A. The most critical part of the operation is the punching of the parameter set of 
cards and the order and insertion point of the cards in the main program deck. Eefer 
to page 17 of this write-up for the order and insertion point of the parameter set. 

B. To run the program, use the following procedure: 

1) Set proper forms in printer 

2) Set proper forms control tape in printer 

3) Ready printer i 

4) Place parameter set of cards in deck between card 026-03-069 and 026-03-070 

5) Add patch routine to deck, if any 

6) Place cards in punch if punching 

7) Eeady Reader -punch 

8) Place tape to be printed on a tape drive and set that drive to 3 

9) Ready tape at load point 

10) If producing a system tape mount a blank tape (with file protection ring in 
place) on another drive and set to 1. 

11) Set Mode Switch to Run 

12) Press Start Reset Switch 

13) Set desired Sense Switches 

14) Press Load Button 

15) If producing a system tape, the program will halt after creating the tape at 
2995. If a tape is mounted for printing, press start. 

16) If using a system tape, disregard steps 4 and 5. Mount the system tape on 1, 
the object tape on 3, perform steps 11-13 and then press the Tape Load Button. 
The program will halt at 0010; to continue, press start. If only one tape drive 
is available, proceed as before except when the halt at 0010 is reached, remove 
the system tape, mount the object tape, set the drive to 3 and press start. 

C. Redundancy - ten trys are made to read a redundant record. If after ten trys, if the 
record is still redundant, there are two courses of action possible, depending on the 
setting of Sense Switch F. If the user desires, redundancies may be disregarded and 
just printed by having SSF ON. If SSF is OFF, the program will halt at location 1214 
after ten trys. At this point, again there are two courses of action possible. Setting 
SSG ON and depressing the start button will cause another nine trys to be made at 
reading. If the record is still redundant, and SSF is still OFF, the program will halt 
again at 1214. If, however, the operator wants to try to correct the bad record, he 
should set SSG OFF, set the Tape Select Switch to "D", and press start. This will 
cause the record to be read again, but redundant characters will enter storage redun- 
dantly and the program will halt at 1247. The operator should immediately set the 
Tape Select Switch back to "N". Then, tivith the Mode Switch set to Storage Scan, the 
operator can locate the bad characters and manually correct them. If the record has 
been corrected, the operator should set the instruction address to 0593, the Mode Switch 
to Run and press start. If the operator cannot correct the record, he should set the 
instruction address to 1247, the Mode Switch to Rim and press start, if he desires to 
bypass the bad record, he should set the instruction address to 0569, the Mode Switch 

to Run and press start. After settiiig the instruction address, be sure to press the 
Start Reset button before pressing the Start Button. (See Flow Chart, page 19) 
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V. Examples 

In this section, one example will be given for each main type of configuration; 

A. Fixed Length Tape Image 

B. Fixed Length Field Selection 

C. Variable Length 

A. Fixed Length Tape Image 

1. Input parameters: 

a) Record Length 100 characters 

b) Blocked 3 records 

c) Header Label present on Tape (120 characters) 

d) Number of files on tape unknown 

2. Output parameters: 

a) Print one record/line 

b) Double space between records 

c) Extra spac^ between blocks 

d) One line of heading on each page 

e) Number pages 

f) No Exceptions 

g) Sequence check columns 6-19 
h) Print first and third file only 
i) Print header label 



3. Control card layout: 



Columns 


How Punched 


Meaning 


1-4 


0100 


Eecord Length - 100 


5-7 


003 


Blocking - 3 


8-10 


100 


Line Length = Eecord Length 


15-16 


01 


First file 


17-18 


03 


Third file 


24 


S 


Double space - record 


25 


J 


Extra space - block 


40-43 


0006 


Hi^ Order Sequence Location 


44-45 


14 


Number of columns 


48 


1 


One heading line /page 


49-51 


120 


Header Label length 


52 


1 


Print header label 



all other columns left blank. 
4. Other cards needed: 
Two additional cards would be needed containing the heading line specified in col. 48. 
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B. Fixed Length Field Selection 

1. Input parameters: same as example A. 

2. Output parameters: 

a) Select three fields from each record. First field contained in columns 5-16, 
print in positions 1-12 exactly as stored. Second field contained in columns 50-59, 
print in positions 1-10 of line below suppressing high order zeroes. Third field 
contained in columns 16-25, edit and print in positions 21-37 of second line. Edit 
control word is ($bb, bbb, bbO, bb&CR). 

b) Double space between records 

c) No heading 

d ) No page numbering 

e) The presence of an "x" punch in column 10 and the presence of an "M" in 
column 65 will constitute an exception which will be punched out, but not printed. 

fl No sequence check 
g) Print first 3 files 
h) Bypass header label 
i) No page numbering 



3. Control card layout: 

Columns How Punched 



1-4 


0100 


5-7 


003 


8-10 


132 


11-12 


03 


21 


1 


24 


S 


26 


2 


27 


1 


28 


"X" (11 punch) 


29 


A 


30-33 


0010 


34 


M 


35 


1 


36-39 


0065 


49-51 


120 


52 


3 


54-55 


03 


56-69 


0005 


60-62 


012 


63-65 


001 


66 


1 


67-70 


0050 


71-73 


010 


74-76 


001 



Meaning 

Record length - 100 

Blocking -3 

Maximum Line Length 

Print 3 files 

No page number 

Double Space - record 

Punch Exceptions 

"and" Type Exception 

First Character configuration 

Presence of zone 

Location 

Second qharacter cd nf iguration 

Presence of character 

Location 

Header Label length 

Bypass Header Label 

3 fields selected 

High Order Field location ^j 

No. of characters I Field 1 

High Order Print location | 

Line number J 

High Order Field location^ ., 

No. of characters v Field 2 

High Order Print Location j 
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3. Control card layout: 



Columns 



How Punched 



(12-zero supp. ) 

77 B (2-line no ) 

78 1 

Second control card 

1-4 0016 

5-7 010 

11 K(2-lineno. ) 

All other columns left blank. 



Meaning 
Line No. $c Disposition Field 2 
Editing being used on this run. 



High Order Field Location ^ 

No. of characters ( Field 3 

High order Print Location [ 

Line No. & Disposition J 



4. Other cards needed: 

One card containing the edit control word must be included as follows: 
C61umn 1 tt (Identification) 

2-3 17 (Length of Edit Word) 

4-20 $bb, bbb, bbO. bb&CR (Edit Word) 

C. Variable Length 



1. Input parameters: 




a) 3 files on tape 




b) No header Label 




2. Output parameters: 




a) Print 80 characters/line 




b) Only one Itne/record 




c) No spacing 




d) No heading 




e) Number pages 




f) No exceptions 




g) No sequence check 




h) Print all files. 




S. Control card layout: 




Columns How Punched 


Meaning 


1-4 WW 


Variable length record 


8-10 080 


Character/line 


11-12 -03 


No. of files 


53 1 


One line/record 


^Ml other columns left blank 




4. Other cards needed. 




]!Jone 
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VI. Comments 

A. It will be noted from the examples shown in Section V that the control card punching 
will follow directly from the input and output parameters. In addition, punching is not 
required for features which are notused. However, there are three fields which must 
always be punched for proper operation: 

1) Record Length (cols. 1-4) 

2) Blocking (cols. 5-7) except Variable Length 

3) Characters/line (cols. 8-10) 

B. The following errors are checked for to insure correct operation of the program. 
1 - During Assignment Phase of Program 



a) Record Length and/or Character/line not punched 

b) More than three Fixed Heading Lines 

c) More than two Variable Heading Lines 

d) More than 160 columns of Edit words 

e) Block Length exceeds maximum allowed 

f) More than 16 fields in Field Selection 

g) Zero overpunch of line number ini Field Selection 
h) Fields not punched in line number order 

1) One line exceeds characters /line allowed 

j) Incorrect punching - col. 26, 27, 29, 35 



k) Incorrect punch-qol. 52 

1) Header Label does not compare equal 

2. During Object Phase of Program 

a) Piles selected for printing not in sequence 

b) Record out of sequence when sequence checking 

c) Redundancy 

(1) After 10 trys at reading and still redundant 
(unless SSF on) 



(2) After eleventh read with SSG off and Tape Select 
Switch set to "D". 



address lo restart 
C. Rule for Editing under Fixed Length Field Selection Mode - When the edit worcTls longer 
than the field to be edited, subtract the length of the field from the length of the edit word and 
add the difference to the high-order position of the print field. Punch this number in the 
control card devoted to print position. 



Address 


Course of 


Displayed 


Action 


3063 


Repunch cont. cards 




and start over 


3064 


tr 


3068 


ir 


3004 


ft 


2972 


Press start or 




start over 


2976 


Repunch cont cards 




and start over 


2976 


ff 


2976 


ti 


2976 


ft 


3038 


Press Start 




(no exceptions) or 




start over 


2836 


Press start or 




start over 


2836 


tt 


0787 


Press start (get 




next file) 


0935 


Press start 


1214 


Set SSG, Tape 




Select Switch and 




press start 


1247 


Correct record 




and set proper 



- 14 - Version 3 

VII. Patching Additional Sub -Routines 

A. Patching may be accomplished with the following two modes of operation: 

a) Fixed Length Record Tape Image mode 

b) Variable Length Record mode 

It is not possible to patch when using the Fixed Length Record Field Selection mode of 
operation, since there is no storage available for the patch. 

B. Patches may be linked to the main routine to perform some operation pertaining 
to individual records. Three different linkages are illustrated which will accomplish 
the most needed operations: 

a) Operate on all records 

b) Operate on Exception records only 

c) Operate on Non -exception records only 

C. Upon reaching the patch routine, the following parameters will be available fo 
enable the user to operate on a record: 

a) TAPADD - 3 digits - located ui 1602-1604; contains the address of the 
storage location preceding the high-order position of the record in question. 



Record 
Desired 



High 

Order 
Address 
contained 
in TAPADD 

b) RCLCNV - 3 digits - located in 1590-1592 contains the record length when 
operating in fixed length mode. 

D. The patch routine itself may be written in symbolic form, except where Bf erring 
to the main routine, when actual addresses should be used. Use the origin shown for 
the mode being used and be careful not to exceed the maximum space available for the 
patch. The last two cards must read as shown. The general format is as follows: 

ORG xxxx ( 2164 for Fixed Length, 2345 for Variable Length) 

(First Patch instruction) 
PATCH 



EX 0063) 

gj^ > Last Two Cards 
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After assembly of the patch, eliminate the "END" card and the first three cards. 
Place the additional cards shown in section E or F in front of the assembled deck. 
In front of this entire deck place the following two cards: 

Card 1 - columns 39-66 

. 024H039TO43t(0471H071075B039 

Card 2 - columns 56-66 

rJ0510551056 

These two cards eliminate the need to condense the assembled patch. Then set the 
entire patch deck between card 026-03-142 and card 026-03-143 of the main routine. 

E. Fixed Length Record Tape Image Mode 

1. Patch Origin - 2164 (J64) 

2. Space Available for Patch - 336 location (2164-2499) 

3. (a) To operate on all records with the patch routine, include the following card in 
front of the assembled patch: 

columns 56-70 

L070X351056BJ64 
(b) The Exit instruction from the patch should read B0787 

4. (a). To operate on Exception records only, include the following card in front of 
the assembled patch: 

columns 56-70 

L0708781056BJ-64 

(b) The Exit instruction from the patch should read B1761 (X61) 

5 (a). To operate on Printed records only (i. e. , records which are not exceptions) 
include the following card in front of the assembled patch: 
columns 56-70 

L070930r) 56BJ64 

(b) The Exit instruction from the patch should read B1736 (X36) 

(c) If the exception option chosen is 3 (punch and print), the instruction shown in 5(a] 
has the same effect as 3(a) (i. e. , process all records). If it is desired not to process 
these printed exceptions with the patch routine, one more card is needed with the card 
in 5(a). It should be noted, however, that this card will cause these exceptions not to 
be sequence checked. 

columns 56-74 

I,074Y981056BX36W423 

Instruction 5(a) and 5(b) are not affected. 
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F. Variable Length Record Mode 

1. Patch Origin - 2345 (L45) 

2. Space Available for Patch - 155 locations (2345-2499) 

3(a) To operate on all records with the patch routine, include the following card in 
front of the assembled patch: 

columns 56-70 

L070X581056BL45 
(b) The Exit instruction from the patch should read B0787 

4 (a) To operate on Exception records only, include the following card in front of 
the assembled patch: 

columns 56-70 

L0708781056BL45 

(b) The Exit Instruction from the patch should read B1770 (X70) 

5 (a) To operate on Printed records only (1. e. , records which are not exceptions) 
Include the following card In front of the assembled patch: 

' columns 56-70 

L0709301056BL45 

(b) The Exit Instruction from the patch should read B1759 (X59) 

(c) If the exception option chosen is 3 (punch and prints, the instruction shown in 5(a), 
has the same effect as 3(a), (1. e. , process all records). If it is desired not to process 
these printed exceptions with the patch routine, one more card is needed with the card 
In 5(a). It should be noted, however, that this card will cause ttiese exceptions; not to 
be sequence checked. 

columns 56-74 

L074X661056BX59W423 

instructions 5 (a) and 5 (b) are not affected.. 
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Version 3 



Vni Deck Complement 



Part n of Program 

^ (cards 026-03-070 thru 026-03-195) 




Edit Word Card(s) 



— Trailer Label Card 
Header Label Card(s) 
Variable Heading Card 
Fixed Heading Cards 
Control Card(s) 



Min - 1 



Min- 1 



Max - 16 

Max - 1 
Max - 2 
Max - 4 
Max - 6 
Max - 3 



Max - 32 



■Part I of Program 

(cards 026-03-001 thru 026-03-069) 



JXl - FLQKJ C MARTS 



mrsr 



- I g- Ve.rs/o/f 3 








If. X^a-h-uJfhti '^^aka/.^'v^ UcMSli-^Sii 



m0 f^e. 



Ho yrH<^ 















>> /^^SJSB. 



5 



/=?aAy 



ik 




/i^/^/v //A/^ r^o^^H) 



^T^krtS 









I 










fM^rb, 




l^fia 









J- 










f^sltpp Sf^c^ *1 











n 



^0- 



'^e.rs'ion 3 



^XCB-r770AJ6 ^ S^/^o^^c^ CH^OK 



suB/in 







sKFSt^i 







si^c^n^ 













^s£^ 



% 








^smftr 










s^rv/^M 





















V&rti0n3 






/A/Mtn 



^^T^fi 







nrvuc^ 








Z^i^ 






^L 



£ 









riPi-pcT> 







£loCA' 




stTi/ir 






^/ M^\ 




&£7l>/^2 










^ JfifKlC*^ 



CAiL/i^/brti'i 






% 









i^rei'or) 3 










^Hi^L22£jL 



siiaST> 



















I 



X 



MSTVf^ 



srT^^r 






ms^ 






^tYsior^ 3 







^ffB^fJi 










I^CfVi 





fiff[mL 









5gnMJ^ 






Cf^t^^aK(7^ 



^rj^-t 






s ^rmx 






^//^ 








-2^- 



Version 5 



X STORAGE LAYOUT AT OBJECT Tl^E 



155T 



TRAILER LABi-L CARP 



\o\ 



PO^CM Ai^^A 



2o\ 



^f^fA/r -4/f^/ 



^^3 






nn 












23^i .. 






2^/£ 



J 



rAPB 



R£'AD 



AR^fi 




Bi>tr CoNree>L PAT/i 






i_^^ top. /,'/»;/ 

^^^"^ Norma/ 
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Appendix A 
List of Characters Applicable to First Character Space/Skip Control 

Character Meaning 

.^ Suppress spacing (not applicable to 1403 printer; see col. 23) 

blank single space 

(zero) double space 

-(11) triple space 

1-9 or J-R skip to channel 1-9 
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Appendix B 




Legal Characters for Record Form Control 


Character 


* 

Meaning 


b (blank) 


single space 


S 


Double space 


T 


Triple space 


A 


Skip to channel 1 


B 


Skip to channel 2 


C 


Skip to channel 3 


D 


Skip to channel 4 


E 


Skip to channel 5 


F 


Skip to channel 6 


G 


Skip to channel 7 


H 


Skip to channel 8 


I 


Skip to channel 9 


+ 




Skip to channel 10 



Skip to channel 11 
Skip to channel 12 
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Appendix C 
Legal Characters for Block Form Control 



Character 


Meaning 


J 


Single space 


K 


Double space 


L 


Triple space 


1 


Skip to channel 1 


2 


Skip to channel 2 


3 


Skip to channel 3 


4 


Skip to channel 4 


5 


Skip to channel 5 


6 


Skip to channel 6 


7 


Skip to channel 7 


8 


Skip to channel 8 


9 


Skip to channel 9 





Skip to channel 10 


# 


Skip to channel 11 


e 


Skip to channel 12 



CLEAR STORAGE 1 
CLEAR STORAGE 2 
BOOTSTRAP CARD 









,0080 15, 022026, O3O0^U,0m,0t» 5, 053, 057073 1026 

L072 116, no 106, 105 1176 10 1/199, 027A075029)O27800 1C270B026/099T,001/0O 1117100 

,008015,022029,056063/056029 ,02U0671056 



PG LIN 


CT 


LABEL 


OP 


A OPERAND 


e OPERAND 


D 


LCC 


INSTRUCTION 


COMMENTS 


1 010 






CTL 


33 














VERS 3 - 12/1/61 


1 020 






ORG 


0333 
















T 030 








•TAPE TO PRINTER 


1401 UTILITY - 


- MAIN 


LINE 










1 OttO 


4 


FLSTST 


B 


NXTPGE 






0333 


e 


425 




BR IF NO FILESEL 


1 050 


7 




A 


KTWO 


FLSELA 




0337 


A 


W77 


S91 




1 060 


7 




MCW 


FLSELA 


FILESL+006 




C344 


M 


S91 


371 


SET ADDRESS 


1 070 


'7 




HCW 


FLSELA 


FILESL+014 




0351 


M 


S91 


379 


FOR NEXT 


1 080 


7 




NCW 


FLSELA 


FILESL+018 




0358 


M 


S91 


383 


FILE SELECTED 


1 090 


e 


FILESL 


B 


FINAL 


0000 




0365 


B 


772 


OCO 


TEST FOR NOFILE 


1 100 


7 




S 


ONE 


0000 




0373 


S 


W76 


000 




1 no 


7 




c 


0000 


NOFLSP 




038C 


c 


000 


S80 


COMP FOR NXIFILE 


1 120 


5 




6 


NXTPGE 




S 


0387 


B 


425 


S 


NXTPAGE IF FOUND 


t 130 


5 




B 


FSOERR 




U 


0392 


B 


783 


U 


FILE NOS OUT SEQ 


1 |ilO 


8 


SEARCH 


LCA 


(U3 


3995 


R 


0397 


L 


IU3 


195 R 




1 150 


5 




B 


• +005 




K 


0405 


e 


414 


K 


TEST EOF 


1 160 






B 


SEARCH 






041C 


6 


397 




NOT YET 


1 T7b 






A 


ONE 


NOFLSP 




0414 


A 


W76 


S80 


STEP NO OF FILE 


1 180 






B 


FILESL+015 






0421 


6 


380 




RETRY COMPARE 


I 190 




NXTPGE 


B 


» +003 






0425 


6 


431 




FIRST TIME BR 


1 200 






CC 






1 


0429 


F 


1 




SKIP TO NEW PAGE 


r 210 






MCW 


KENN 


NXTPGE 




0451 


M 


W93 


425 


CHG BR TO NO-OP 


i 220 






CS 


0332 






0438 


/ 


332 






1 230 






CS 








0442 


/ 








1 2I|0 




PAGECP 


HZ9 


HOPRNT 






0443 


N 


469 




PAGE NO BYPASS 


I 250 






MCS 


PAGENO 


0299 




0447 


Z 


TOO 


299 


PRINT 


1 260 






HCW 


PAGE 


0295 




04 64 


M 


S96 


295 


PAGE NO 


1 270 






W 








C46T 


2 








1 280 






A 


ONE 


PAGENO 




0»«62 


A 


W76 


TCO 


STEP PAGE NO 


1 290 




HOPRNT 


LCA 


ADOLNl 


CARRCT+005 




0469 


L 


V73 


539 




1 300 






LCA 


KNOLNS 


LNSCTR 




04 76 


L 


T02 


T04 


SET NO OF LINES 


1 310 




PRINTH 


LCA 


CARRCT+005 


HEADLN+003 




0483 


L 


539 


522 


SET UP LINE ADDR 


1 320 






A 


ONE 


HEADLN+OO^ 




0490 


A 


W76 


522 




I 330 






S 


ONE 


LNSCTR 




0497 


S 


W76 


T04 




1 340 






BWZ 


TPREAD 


LNSCTR 


K 


0504 


V 


559 


T04 K 


6R IF ALL LINES 


1 350 






Cm 


HtADLN+001 


CARRCT+003 




0512 


) 


520 


537 




1 360 




HEAOLN 


MCW 


0000 


CARRCT+OOl 




0519 


M 


000 


535 


HEAD LINE FRM CT 


1 370 






B 


CARRCT+0G2 


CARRCT+001 




0526 


B 


536 


535 




1 380 




CARRCT 


CC 









G53»4 


F 









1 390 






MCW 


0000 


0332 




0536 


M 


000 


332 


MOVE HEAD LINE 


1 400 






W 








0543 


2 






PRINT 


1 UIO 






sw 


CARRCT+003 






054«t 


, 


537 






I »i20 






A 


K133 


CARRCT+005 




0548 


A 


W91 


539 




1 "130 






H 


PrtlNTH 






0555 


B 


483 




GET NEXT HEAD LN 


1 4H0 




TPREAD 


CS 


0332 






0559 


/ 


332 






1 450 






CS 








0563 


/ 








1 «i60 






CC 


• +00 1 




L 


0564 


F 


569 


L 


TRIPLE SPACE 


1 470 




RECRD 


LCA 


3999 


399? 




0549 


L 


199 


197 




1 480 


8 




LCA 


{U3 


RIAREA 


R 


0576 


L 


(U3 


NOI R 


READ TAPE BLOCK 



PG 


LIN 


CT 


LAb£L 


OP 


4 OPERAND 




«is»0 


k 




LCA 


RMBLNK 




500 


5 




ti 


REDUND 




510 


5 


TSFTM 


B 


N'XTFLE 




520 


7 




MCw 


BLANK 




530 


5 




H 


RECRD 




5!tU 


U 




B 


START 




550 


7 


NXTFLfc 


A 


ONE 




560 


2 




CC 






570 


U 




CS 


0332 




580 


1 




CS 






590 


7 




MCW 


RECLEG 




600 


7 




MCS 


KNORCS 




610 


1 




M 






620 


7 




MCW 


0332 




650 


7 




MCrt 


0332 




6U0 


7 




Ik 


KOOl 




650 


7 




C 


NGFLSP 




660 


5 




B 


FINAL 




670 


U 


FILGPT 


B 


HALTCP 




680 


5 




B 


HALTOP 




6V0 


7 


TAPELD 


LCA 


3999 




700 


8 




LCA 


(U3 




710 


U 




LCA 


FILtU 




720 


5 




B 


FINAL 




7^0 


7 




LCA 


0080 




7U0 


8 




B 


CLTRWM 




750 


7 


CCHFLR 


C 


CNE 




760 


7 




LCA 


RIAREA+080 




770 


1 




C 






780 


5 




8 


FINAL 




790 


5 




CO 


IU3 




800 


7 


TOFILT 


LCA 


3999 




810 


l4 




8 


FLSTST 




820 


U 


HAL TOP 


H 


TAPELD 




8 50 


U 


CLTRriM 


CW 


RIAREA+080 




tihO 


U 




B 


CGMTLR 




850 


5 


FINAL 


CU 


{U3 




860 


2 




CC 






870 


U 




H 


» -00 3 




886 


U 


FSOERR. 


H 


FLSTST , 




890 


7 


SU6RTN 


MCW 


PLANK 




900 


«4 




B 


SEONCE 




910 


7 


TESTEX 


LCA 


TAPADC 




920 


7 




LCA 


TAPADD 




9.^0 


7 




A 


ClAODR 




9MG 


7 




A 


C2A00R 




950 


7 




CW 


TESTCl+001 




960 


7 


FESTCl 


MCw 


0000 




970 


7 




C 


TSTCH1 




980 


5 




b 


TESTC2 




990 


1+ 




b 


tXCFMO 


2 


000 


7 


TESTC? 


MCW 


0000 


2 


010 


f 




C 


TSTCH2 



B OPERAND 



BYPASS 



NGFLSP 



0299 
0291 

SEQHLD 
KNCRCS 
PAGENC 
KNOFLS 



RIAREA+080 
RIAREA 



0180 

RIAREA+080 

CNE 

0181 



3997 



EXITCT 

TESTCl+003 

TESTC2+003 

r£STCl+003 

TESTC2+003 

TESTC2+001 

TSTCHl 

CHAKl 



TSTCH2 

CHAR2 











\4r5«or» ^ 










-Z- 


LOC 


lUSTRUCTION 


CO^MENTS 


0581* 


L 


X06 






0588 


B 


/hb 


L 


CHECK REDUNDANCY 


C593 


B 


b\h 


K 


TEST EOF 


0598 


M 


W92 


M61 




C6C5 


B 


569 


C 


SENSE SW C-BYP 


0610 


B 


XII 




TO OBJECT PRGM 


06 U 


A 


H76 


S8C 


ACQ I TO FILES 


0621 


F 


1 






0623 


/ 


352 






0627 


/ 








0628 


M 


S76 


2? 9 


PRINT NUMBER OF 


0635 


Z 


S69 


291 


RECORDS IN FILE 


0642 


2 








06U3 


H 


332 


U38 


BLANK SEQ FLO 


0650 


M 


332 


S69 


BLANK NO RECS 


0657 


+ 


XOd 


TCO 


RESET PAGE NO 


0661* 


C 


sao 


S7e 


COMP FILES PROC 


0671 


B 


772 


S 


OUT IF EQUAL 


0676 


e 


760 




END OF FILE HALT 


0680 


B 


760 


B 


CCNT CO OR SS 6 


0685 


L 


199 






0692 


L 


IU3 


READ TO CHECK 


0700 


L 


S88 




SECOND EOF >»ARK 


070M 


B 


772 


K 




0709 


L 


080 


180 




0716 


B 


76ii 


N81 




072«i 


C 


U76 


H7« 




0731 


L 


N81 


181 




0738 


C 






COMP FOR TRAILER 


0739 


6 


772 


S 




07I|U 


U 


(U3 


8 




07U9 


L 


199 


197 




0756 


6 


333 




START NEXT FILE 


0760 


. 


685 




EOF TEMP HALT 


076U 


) 


N81 






0766 


B 


72k 






0772 


U 


CU3 


R 


REWIND TAPE 


0777 


F 


1 




RESTORE FORM 


0779 


• 


779 




HALT-END OF JOB 


0783 


. 


333 




FILE NOS OUT SEQ 


0787 


M 


M92 


U62 


FROM OBJECT PRGM 


079U 


B 


879 




BYP IF NO EXCPNS 


0798 


L 


Hon 


836 


SET UP ADDRESSES 


0805 


L 


M04 


859 


OF EXCEPTION 


0812 


A 


HHS 


836 


CHARACTER 


0819 


A 


Mli8 


859 


LOCATIONS 


0826 


) 


85* 


857 




0833 


H 


000 


H51 




08»*C 


e 


H51 


Mil 9 


COMP FIRST CHAR 


08U7 


B 


856 


/ 


BRANCH ON PROPER 


r> n c t^ 


S 


875 




CONDITION 


0856 


M 


000 


M52 




086 3 


C 


MS2 


M50 


COMP SECOND CHAR 



'J- 



PG LIM CT LABEL 



020 
030 
OHO 
050 
060 
070 
080 



2 090 



100 
110 
120 
130 
1i»0 
15»0 
160 
170 
180 
190 
200 
210 
220 
230 
2^0 
250 
260 
270 
280 
290 
300 
310 
320 
330 
31i0 
350 
360 
370 
380 
390 
iiOO 
410 
it 20 
U30 
i»HO 
«i50 
ii60 

uro 

UBO 
ii90 
500 
510 
520 
530 
5ii0 



EXCFNO 
SEQNCE 



CHKSEQ 



SKCNTL 



SUPPRS 



5 
h 
k 

7 

7 

7 

i| 

7 

7 

5 

h 

h OUTSEQ 

h SKPSUB 

7 

7 

7 

h 

7 

7 

7 

5 

7 

h 
1 

7 
1 
H 
8 
8 
8 
8 
8 
4 
5 
5 
7 
7 
2 
8 
h 
7 
8 
5 
7 
2 
8 
5 
H 
7 
7 
7 
d 



SKIP 



LINKGE 
FORM 



TESTOF 



REOUNO 



RETRY 



OP 

B 

B 

B 

LCA 

A 

NCU 

CM 

C 

NCU 

B 

6 

H 

B 

LCA 

A 

NCU 

CU 

NCU 

NCU 

C 

B 

NCU 

B 

CS 

CS 

NCU 

U 

CS 

B 

B 

B 

BUZ 

BMZ 

B 

CC 

CC 

HCM 

NN 

CC 

B 

B 

NCU 

B 

6 

NCh 

CC 

B 

B 

B 

HCU 

NCW 

S 

BiriZ 



A OPERAND 

SEQNCE 

EXCPTN 

OUTSEQ-00* 

SEOAOO 

TAPAOD 

CHKSEO+003 

CHKSEft+001 

OCCO 

QOOO 

OUTSEQ 

SETUP2 

• -007 

LINKGE 

TAPADO 

ONE 

SKCHTL+003 

SKCNTL+001 

0000 

BLANK 

FCCHAR 

SKIP 

ONE 

NOPNCH 

0332 

ASTRSK 

0203 

LINKGE 

FORM 

FORM 4^005 

FORM ^10 

FORM to 10 

PNTSTP 

LINKGE 

LIIKGE 

AOL INK 

FCCHAR 

PAGEOP-OOS 

LINKGE 

0VFAD3 

RECRD 

NXTPGE 

FCBLKC 

PAGE0P-005 

NXTPGE 

RECkD 

TSTSSF+005 

TKYCTR-002 

ONE 

TSTSSF 



B OPERAND 



CHKSEQ+003 
CHKSEQt003 
CHKSEQi^OlO 

0000 
0000 



SKCNTL4-003 
SKCNTL+003 
SKCNTLt013 

FCCHAR 

0000 

AMPRSD 

EXITCT 



0203 



FCCHAR 
FCCHAR 
FCCHAR 
FCCHAR 
FCCHAR 



TPREAO^^OOB 

• 4^002 

* -008 

TPREAD4^008 
BYPASS 

• +002 

* -008 



GPTNB -00% 
TRYCTR 
TRYCTR 
TRYCTR 



LCC 

G870 
0875 
0879 
0883 
0890 
0897 
090>i 
0906 
0915 
0922 
0927 
0931 
0955 
0939 
0946 
0953 
0960 
0944 
0971 
0978 
0985 
0990 
0997 
1C01 
1C05 
1006 
1013 
1014 
10J8 
1026 
1G34 
1042 
1050 
1058 
1C62 
1C67 
1072 
1079 
1086 
1C88 
1096 
1100 
1107 
11J5 
1120 
1127 
1129 
1137 
1142 
1146 
1153 
1160 
1167 



INSTRUCTION COMMENTS 



e 879 
B X61 
6 927 
L U41 
A h04 
M .9U 
) 909 
C 000 
H 000 
B 93} 
B X36 
. 927 
6 4=58 



L U04 
A H76 
N 967 
) 965 
M 000 
M U92 
C M06 
B tl8 
N U76 
B Z10 
/ 332 
/ 
N 
2 

/ 203 
6 ^58 
B #62 
B #67 

V *72 
♦ 72 
Z21 
*58 
*58 
H68 
U06 


B 438 
6 *58 
N U65 
e 569 
B 425 
M U08 
F 
6 438 
B 425 
8 569 
N S13 
M S59 
S W76 

V SOS 



911 
911 
918 

OCO 
OCO 
U 



967 
967 
977 

U06 
000 
X01 

/ 

M62 



U96 203 



H06 
U06 
HC6 
M06 
H66 

J 
K 

567 
♦87 



BR ON PROPER CND 
BR-PROCESS EXCPN 
6YP IF NO SEQCHK 
SET UP SEQUENCE 
CHECK ADDRESS 



CHECK SEQUENCE 

BR-OUT OF SEQNCE 
TO PROCESS RECRD 
RECRD OUT OF SEQ 
BYP-NOT FIRST CR 
SET UP ADDRESS 
OF FIRST CHAR 



PICK UP CHAR 
BLANK CHAR 
CHECK FOR SPACE 
StPPRESS 
SPAC€ SUPPRESS 
OPTION TO BYPASS 



OPTION TO PRINT 
ASTERISKS 

SINGLE SPACE 

OCUBtE SPACE 

TRIPLE SPACE 

SKIP TO CHANNEL 

1-9 

LINK TO PRINT 



♦87 1 PAGE EJECT-HDNGS 

567 
U61 

• OVERFLOlr-EJECT 
728 

BLOCK FORH CONTL 
/28 1 

• OVERFLOW-EJECT 
GET NEXT BLOCK 
REDUIWANCY 
SET CTR FOR TRYS 



S43 
S61 
S61 
S61 



K OUT IF TEN TRYS 



PG LIN 


CT 


LABEL 


OP 


A OPERAND 


2 550 


5 




CU 


(U3 


2 560 


7 




LCA 


3999 


2 570 


8 




LCA 


IU3 


2 580 


U 




LCA 


RMBLNK 


2 590 


5 




B 


RETRY 


2 600 


l» 




B 


TSTTM 


2 610 


5 


TSTSSF 


B 


TSTTM 


2 620 


1 




H 




2 630 


5 




B 


RETRY -007 


2 6i|0 


5 


BKSPRD 


CU 


(U3 


2 650 


7 




LCA 


3999 


2 660 


8 




LCA 


(U3 


2 670 


h 




LCA 


RMBLNK 


2 680 


h 




H 


TSTTM 


2 690 


7 


OPTNB 


MCM 


K6EE 


2 700 


l» 




B 


BKSPRD 


2 710 


2 




DCW 


• 


2 720 


2 


TRYCTR 


OCW 


* 


2 730 


8 


KNORCS 


DCW 


« 


2 7IjO 


7 


RECLEG 


OCM 


• 


2 750 


2 


KNOFLS 


OCU 


• 


2 760 


2 


NOFLSP 


OCW 


« 


2 770 


2 


FILEl 


DCW 


• 


2 780 


2 


FILE2 


DCW 


« 


2 790 


2 


FILE3 


OCW 


• 


2 800 


2 


FILEJt 


OCW 


• 


2 810 


3 


FLSELA 


OSA 


• 


2 820 


5 


PAGE 


DCW 


• 


2 830 


h 


PAGEMO 


DCW 


« 


2 8U0 


2 


KNOLNS 


DCW 


« 


2 850 


2 


LNSCTR 


DCW 


* 


2 860 


1 


LINE1 


DCW 


• 


2 870 


79 


LINEIA 


DS 


• ' 


2 880 


52 


LINEIB 


DS 


» 


2 890 


1 


LNEIFC 


DCW 


• 


2 900 


1 


LINE2 


DCW 


« 


2 910 


79 


LINE2A 


DS 


• 


2 920 


52 


LINE2B 


DS 


* 


2 930 


1 


LNE2FC 


DCW 


• 


2 940 


3 


ADDLNi 


DSA 


» 


2 950 


i| 


KRECLG 


DCW 


« 


2 960 


l| 


PAR AMI 


DCW 


« 


2 970 


l| 


KLINLG 


DCW 


« 


2 980 


k 


PARAH2 


DCW 


• 


2 990 


3 


RCLCNV 


DCW 


• 


3 000 


3 


KBLKNG 


DCW 


• 


3 010 


3 


BLKCTR 


DCW 


» 


3 020 


3 


TRUEBL 


DCW 


• 


3 030 


3 


TAPADD 


DCW 


» 


3 OitO 


1 


SKPTSr 


OCW 


• 


3 050 


! 


FCCHAR 


DCW 


» 


3 060 


1 


FCINST 


DCW 


• 


3 070 


1 


FCBLKC 


UCW 


• 



B OPERAND 



3997 
RIAREA 



3997 
RIAREA 



OPTNB -OOJ* 



FILEl -002 



LINEIB 



LOC 



Version 3 
-4- 

INSTRUCTIOII COMMENTS 



B 


1175 


U 


IU3 


B 






1180 


L 


199 


197 




R 


1187 


L 


IU3 


NO! 


R BACKSPACE-READ 




1195 


t 


X06 






L 


1199 


a 


/*0 


L 


CHECK REDUNDANCY 




120ii 


B 


593 




RECORD GOCD 


F 


1208 


B 


593 


F 


SS F -CONTINUE 




1213 


« 






HALT-USER SET SW 


G 


12111 


B 


/53 


G 


SS G-TRY 9 MORE 


B 


1219 


U 


fU3 


B 






12211 


L 


199 


197 




R 


1231 


L 


IU3 


NOl 


R BACKSPACE-READ 




1259 


L 


X0« 








12ii3 


. 


593 




HALT-USER FIX 




12«»7 


M 


1197 


Sli3 


CANNOT FIX-REAO 




12511 


B 


S19 




AND PROCESS 


09 


1259 










09 


1241 
12*9 










RECORDS 


1276 










99 


1278 










0+ 


1280 
1282 
128 It 
1286 
1288 










S80 


1291 










PAGE 


1296 










1 


1300 










00 


1302 
13011 
1305 
138i| 
111 36 
1li37 
1I|38 
1517 
1569 
1570 










U36 


1573 










0000 


1577 
1581 










0000 


1585 
1589 
1592 










000 


1595 
1598 










000 


1601 
160it 
1605 










/ 


i6G6 










N 


1607 













1608 














PG LIN CT LABEL 



080 
090 
100 
110 
120 
130 
IHO 
150 
160 
170 
180 
190 



30 

3 



SEQHLO 
SEQAOO 



3 200 



210 
220 
230 
2h0 
250 
260 
270 
280 
290 
^00 
3 310 
3 320 
3 33b 
3 ShO 
3 350 
3 360 
3 370 
3 380 
3 390 
3 %00 
3 i»10 
3 It20 
3 Ii30 
3 ii<»0 
3 %50 
3 it60 
3 «»70 
i»80 
l|90 
500 
510 
520 
530 
5«i0 
550 
560 
570 
580 
590 
600 



1 EXCOPT 



3 C1AD0R 
3 C2ADDR 
1 CHAR I 
1 CHAR2 
1 TSTCHI 
1 TSTCH2 
l» PIWLGT 
H TPELGT 
1 BYPASS 
1 EXITCT 
0VFAD3 
AOL INK 
KRRR 
KZEROP 
ONE 
KTtfO 
KFOUR 
K80 

kiob 

1(200 
K133 
1 BLANK 
1 KENN 
3 ASTRSK 
1 KBEE 
3 KJ1 

1 AMPRSD 
3 KOOl 

2 RMBLNK 
1 KTHREE 

3 KG83 
RIAREA 



3 EXCDSA 
1 KDEE 
1 KYYY 
k KMAXLG 
KMINLG 
KG79 
TEHP 
K16 
KEMM 
KZEE 
TABLE 
GRPMRK 
K03 
KIO 

HLDADO 
SLASH 
ESS 



OP 



A OPERAND 



B OPERAND 



OCW • 

OCW • 

OCW • 

DGM • 

OCN * 

DCU * 

DCU • 

DCU • 

DCW • 

DCW • 

DCM » 

DCH • 

DCW • 

OSA • 

DSA • 

DSA • 

OCU • 

OCW • 

DCW • 

DCW • 

ix;w • 

dew • 

OCW • 

OCW « 

OCW • 

DCW • 

OCW « 

OCW • 

OCW • 

DCW • 

OCW • 

DCW • 

DCW • 

OCW • 

OS 2501 

ORG 0081 

OSA • 

DCW • 

DCW • 

DCW • 

DCM • 

DCW • 

DCW • 

DCW • 

DCW * 

DCW • 
DCW 
DCW 
DCM 
DCW 
DSA 
OCm 
DCW 



3993 
3997 



LGC INSTRUCTION COfMENTS 







1638 






16iil 






16H2 




000 


16fc5 




000 


16ii8 
16% 9 
1660 
1651 
1652 
1656 
16*0 
1661 
1642 


RECRD 


569 


1665 


LIMKGE 


*58 


1648 


RIAREA-001 


NOO 


1671 




000+ 


1675 




1 


1676 




2 


1677 




H 


1678 




0080 


1682 




100 


1685 




200 


1688 




133 


1691 
1692 




N 


1693 




••• 


1696 




B 


1697 




Oil 


1700 




♦ 


1701 




001 


170% 




* 


1706 




3 


17Q7 




G83 


17.10 
2501 


SEQNCE 


879 


0083 







008ii 




Y 


0085 




li|96 


0089 




1279 


0093 




G79 


0096 
0099 




16 


0101 




M 


0102 




Z 


0103 




2SKB 


3993 
3997 




03 


0105 




10 


0107 


SEQHLD-030 


W08 


0110 




/ 


0111 




S 


0112 






PG LIN CT LABEL 



610 
620 
6 SO 
6U0 
650 
660 
670 
680 
690 
700 
710 
720 
730 
7U0 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
9U0 
950 
960 
970 
980 
990 
000 
010 
020 
030 
OUO 
050 
060 
070 
080 
090 
100 
110 
120 
130 



1 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
80 
80 
3 
3 

4 
tt 
7 
7 
k 
1 
2 
8 
8 
7 
7 
8 
7 
7 
5 
1 

2 
7 
7 
5 
1 
2 
7 
7 
7 
5 
7 
8 
1 
2 
7 



TEE 
ADDED 1 



ADOEDO 
EDTWDA 
EDTHDB 
ADDStR 
EDTTST 

ANAL1 



STORFH 



NXTFHD 



FIXCDl 



OP 

DCW 

DCW 

DCM 

DCW 

DCW 

DCW 

DCW 

DCW 

DCw 

DCW 

DCW 

DCW 

DCW 

DCW 

DCW 

DCW 

DCW 

DS 

DS 

DCW 

DSA 

ORG 

CS 

sw 
sw 
sw 
sw 

R 
SS 

B 

B 

LCA 

MCW 

B 

MCW 

C 

B 

R 

SS 

LCA 

C 

B 

R 

SS 

LCA 

MN 

C 

B 

S 

BWZ 

R 

SS 

LCA 



A OPERAND 



B OPERAND 



LOC 



INSTRUCTION COMMENTS 



2500 
OOBO 
0001 
3472 
3738 
389V 



ERROR 1 

ERROR 1 

0080 

0080 

STORFH 

ONE 

3J5U 

STORFH 



0077 
315U 
STORFH 



0077 

3145 

3145 

ERR0R2 

ONE 

STORVH 



0080 



EDTWDB 



3605 
3739 



0004 

0010 

3179 

TEMP 

3154 

DECKSL+007 

K03 



3253 
KIO 



3330 

LNSCTR 

KTHREE 

LNSCTR 
LNSCTR 



3419 



T 0113 










0116 










0119 










0122 










0125 










0128 










0131 










C13H 










0137 










01«iO 










0H»3 










01i»6 










01*9 










0152 










OliS 










0158 










01*1 










02«i1 










0321 










H28 032«i 










321 0327 










2500 


/ 


080 






2501} 


• 


00] 






2508 


1 


072 


F05 




25J5 


• 


G38 


G39 




2522 


> 


H9y 






2526 


1 








2S27 


K 


1 






2529 


B 


♦62 


00* 


CHECK FOR RECORD 


2537 


B 


♦62 


010 


LENGTH + LINE LG 


25«i5 


L 


080 


A79 


STORE CO 1 


2552 


N 


080 


099 




2559 


B 


018 


A5* 


BR IF t«CT FLDSEL 


2547 


M 


M76 


+3* 


SET FIEtD SELPGH 


257* 


C 


AS* 


105 




2581 


B 


018 


U 




2586 


1 








2587 


K 


1 






2S89 


L 


077 


B53 


STORE CC 2 


2596 


C 


A5* 


107 




2603 


B 


018 


U 




2608 


1 








2609 


K 


1 






2611 


L 


077 


C3€ 


STORE CC 3 


2618 





A*5 


TO* 




2625 


C 


A*5 


X07 


CHK NO OF LIMES 


2632 


B 


♦63 


T 


OF FIX HEADING 


2637 


S 


M76 


TO* 




2644 


tf 


P26 


TO* K 


BR IF ALL LINES 


2652 


1 








2653 


K 


1 




-» 


2655 


L 


080 


019 


FIX HEAD CARD 1 



yfersion^ 



PG LIN 


CT 


LABEL 


OP 


A OPERAND 


ll 1%0 


1 




R 




% ISO 


2 




SS 




h 160 


7 


FIXC02 


NCW 


0052 


1| 170 


7 




NCW 


0080 


% 180 


7 




SW 


FIXC0l4^00ll 


h 190 


ii 




sw 


FIXC02«OI1 


h 200 


7 




A 


K133 


h 210 


7 




A 


K133 


* 220 


7 




A 


K133 


H 230 


7 




CU 


FIXCDI^OOli 


% 2ii0 


% 




CH 


FIXC02«011 


H 250 


ll 




B 


NXTFHD 


h 260 


7 


STORVH 


MN 


31*7 


ii 270 


7 




ZA 


KNOLNS 


H 280 


7 




C 


31*7 


ii 290 


5 




B 


ERR0R3 


h 300 


7 


NXTVHD 


S 


ONE 


% 310 


8 




BWZ 


STORHL 


ii 320 


1 




R 




h 330 


2 




SS 




* 3*0 


_?. 


VARCPL. 


JLCA_ 


0080 


h 350 


1 




R 




ll 360 


2 




SS 




«i 370 


7 


VARC02~ 


MCM 


0052 


h 380 


8 




B 


• 4^008 


l» 390 


7 




HCM 


0080 


% liOO 


7 




NCW 


AD0L2A 


H h\6 


7 




new 


AD0L2B 


h %20 


7 




new 


AD0L2F 


% l|30 


H 




B 


*«XTVHO 


l» l|l>0 


8 


STORHL 


B 


• +005 


It Ii50 


U 




B 


STORTL 


1» Ii60 


1 




R 




h 1|70 


2 




SS 




ll Il80 


7 




LCA 


0080 


i| Ii90 


d 




Sh 


31*8 


% 500 


7 




C 


K80 


ll 510 


5 




B 


• +005 


1» 520 


U 




B 


STORTL 


ll 530 


1 




R 




«i SHO 


2 




SS 




ll 550 


7 




MOW 


0080 


h 560 


8 


STORTL 


6 


EDITST 


H 570 


1 




R 




h 580 


2 




SS 




h 590 


7 




LCA 


0080 


« 600 


8 


EDITST 


B 


SELPGM 


h 610 


7 




SW 


0002 


1| 620 


1 


NXTEDT 


R 




H 630 


8 




B 


• +012 


% 6ii0 


7 




CM 


0002 


i| 650 


i| 




B 


SELPGM+001 


H 660 


2 




SS 





6 OPERAND 



3*71 
3*72 
FIXCD2«00* 

FIXCD1+006 
FIXCD2Hh006 
FIXCD2+013 
FIXCD2+00* 



KNOLNS 
LNSCTR 
KTWO 

LNSCTR 
LNSCTR 



LINEIA 



LINE1B 

0080 

LNEIFC 

VARCD 1+006 

VARC02+006 

yARCD24^021 

3151 



3818 
3150 



3898 
TEMP 



-001 



3978 

TEHP -002 

000* 

0001 
000* 



LOC 

2642 
2663 
2665 
2672 
2679 
2686 
2690 
2697 
270U 
27 1 1 
2718 
2722 
2726 
2733 
27*0 
27*7 
2752 
2759 
2747 
2748 
2770 
27?7 
2778 
2780 
2787 
2795 
2802 
2809 
2816 
2823 
2827 
2835 
28S9 
28*0 
28ti2 
28i|9 
2853 
2840 
2845 
2849 
2870 
2872 
2879 
2887 
2888 
2690 
2897 
2905 
2912 
2913 
2921 
2928 
2932 



-7- 

IMSfRUCTION COHNENTS 



1 

0S2 07J 
080 D72 
059 069 
074 

U91 041 
W91 071 
H91 078 
059 069 



1 

080 

1 



052 US6 
6 062 080 
M 080 U37 
H +70 P76 
N +73 P86 
n +74 QOI 
8 P52 
6 Q39 A51 
e 079 
1 

K 1 

L 080 H18 
, AU8 
C M82 A50 
e Q49 U 
8 Q79 
1 

K 1 

H 080 H98 
8 Q97 098 
1 
K 
L 
8 

1 

B R32 001 



1 

080 



+0* 097 
002 OOU 



f;IX HEAD CARD 2 



074 

B 037 

D A*7 T02 
T02 TO* 
Aii7 H77 
♦4* T 
U76 TOit 
027 TO* 



GET NEXT FIX HOG 

CHK NO W LINES 
OF VAR HEADING 



K 8R IF ALL LINES 



T8* yAR HEAD CARD 1 



VAR HEAD CARD 2 



GET NEXT VAR HOG 



NC HDR LABEL COS 



HEADER LABEL I 



HEAI^R LABEL 2 



178 TRAILER LABEL 



002 
♦ 05 
1 



001 



) BR IF EDIT WORD 
NO MORE EDIT 
MORO CARDS 







..CI 

7 
7 
4 
7 
4 
7 
7 
7 
7 
5 
4 


LABEL 
STEDIT 


OP 

MCH 
A 

. Sw 

A 

C.w 

LCA 

A 

A 


A OPERAND .. 

KQ3 . _ _ 
0003 

STEOIT+00.4 
0003 

$TEDIT+0Q4 
0000 
0003 
K THREE 
_JSJJEJLLI+006 . . ,. 


B OPERAND 

SI ED IT +003 
STEDIT+003 

STEDIT+006 

ADDEDO 
ADDED 1 
STEDIT+013 
EOTTST 

0056 
0067 
3103 
0076 

0.ECKSL+007_ 

0016 

LINE2A 
LINE2B .. 
LNE2FC 

1401 UTILITY - 

BLKCTR 

TAPEMD 

COMPRL+007 

EOITAD 

TAPAOD 

FLDCTR 
PJaTUP+014 

EXCOPT 

PNHLGT 

TPELGT 

TAPEPN+003 

TAPEPN+Q06 

PNHLGT 

PNHLGT 

TAPEPN+003 

TAPEPN+006 

TAPEPN+004 


D LOC JliSIRUCIIQN 

2934 M IQS R66 
2941 A 003 R66 
2948 « R67 
2952 A 003 R69 
2959 J R67 
2963 L 000 161 
2970 A 003 116 
2977 A X07 R76 
2984 C R69 327 

T 2901 6 +00 T 
29.96 BR 12 
3000 . +00 
3Q04 _1 _ . 
3005 • 024 056 
30J2 J. 0*3 067 

V 3039 B +39 A03 V 

2 3027 B OS* 076 2 
3035 1 +27 
3039 11 Xa7 +3* 
3046 B +27 
3050 A Qi* .QI£ . 
3068 1 +50 
30*2 ^ 
3063 . 
30*4 ^ ±Ak 
V17 3070 

. ,y69 3013 - 
V70 -3076 

. . a NOP 

FIELD S£L£CiLQH 

17J1 N V95 V98 
1718 li MIJ ILM 
1725 M H76 Z71 
1732 H XIO MBS 
17S9 M K88 H04 
17116 B 787 
1750 N K90 K92 
1767 1. Hfl7.2S5 
1764 B 935 
1 1768 fi IIQ Ji42 1 
1776 M 1182 U56 
1783 M V77 M*Q 
1790 L K88 Y55 
1797 L MBS YSfl 
1804 C W60 1156 

T 1811 B Y23.T 

18J6 M M60 WS6 
1823 A U56 Y5S 
18S0 A U56 Y58 
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